home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-170 dbase 10 for windows / 1.ima / SAMPLES.PAK / EVENT.PRG < prev    next >
Text File  |  1993-07-26  |  2KB  |  43 lines
  1. *******************************************************************************
  2. *  PROGRAM:      Event.prg
  3. *
  4. *  WRITTEN BY:   Borland Late Night Crew
  5. *
  6. *  DATE:         6/93
  7. *
  8. *  UPDATED:
  9. *
  10. *  VERSION:      Alpha α
  11. *
  12. *  DESCRIPTION:  This program uses Bladerunner's object model to create windows
  13. *                with event handlers that manipulate the properties of the
  14. *                window and its controls.
  15. *                MakeButtonWindow() will create a window with a pushbutton.
  16. *                When you left click anywhere in that window, the pushbutton
  17. *                will move to that point, and its caption will change to show
  18. *                the current pixel coordinates.
  19. *                MakeSizeWindow() will create the same window, but now when
  20. *                you left click and move in the window, its size will change
  21. *                as you move the mouse.
  22. *                All these properties are changed using the event handler
  23. *                functions that are assigned to this window's class
  24. *
  25. *  PARAMETERS:   None
  26. *
  27. *  CALLS:        None
  28. *
  29. *  USAGE:        DO Event
  30. *
  31. *******************************************************************************
  32. public c
  33. c = 0
  34.  
  35. set procedure to sampproc && so all functions will be accessible when the command
  36.                           && window has control while the windows created using
  37.                           && these functions are waiting for events to happen
  38.  
  39. MakeButtonWindow()
  40. MakeSizeWindow()
  41.  
  42. **************************** End of Event.prg *********************************
  43.